(Fprin1_to_string): Use macro SPECPDL_INDEX.

diff --git a/src/print.c b/src/print.c
index 4110ef3240716ca8c4626c2323f08ab0df534096..533d0a82cc4bf1a822781c214526533a2bebee1d 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -796,7 +796,7 @@ A printed representation of an object is text which describes that object.  */)
   Lisp_Object printcharfun;
   /* struct gcpro gcpro1, gcpro2; */
   Lisp_Object save_deactivate_mark;
-  int count = specpdl_ptr - specpdl;
+  int count = SPECPDL_INDEX ();
   struct buffer *previous;
 
   specbind (Qinhibit_modification_hooks, Qt);